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BRIEF DESCRIPTION 



INVERSION OF MATRICES WITH VARIABLE LENGTH 
MANTISSA BY JORDAN'S METHOD ON 1620 



a) Author : R. -N. Menegaux 

94, rue Reaumur 
Paris (2e) France 

b) Subroutine enabling to invert a matrix already in core with 
up to 45 digits of mantissa. Room must be spared for both 
matrices. 

c) Needs)' inl s ba sic 1620 with automatic divide and indirect 
addressing. It asks for 3147 positions in itself. 

d) Solved by Jordan's method. 

e) Operating time depends of the mantissa length. 

f) Written in SPS II Version II with variable length mantissa. 

g) Uses floating point subroutines. 

h) Numbers in floating point only. 

The origin matrix is destroyed after inversion. 

i) Trials with 10x10 (3 mn : execution time) and 6x6 matrices,, 
j) Language : English 

k) None 

1) This program and its documentation were written by an IBM 

employee. It was developed for a specific purpose and submitted 
for general distribution to interested parties in the hope that it 
might prove helpful to other members of the data processing 
community. The program and its documentation are essentially 
in the author's original form. IBM serves as the distribution 
agency in supplying this program. Questions concerning the 
use of the program should be directed to the author's attention. 
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WRITE UP 

INVERSION OF MATRICES WITH VARIABLE LENGTH 
MANTISSA BY JORDAN'S METHOD ON 1620 (CARD) 



DECK KEY 

1) Symbolic deck 

We have used the numerotation of Symbolic 
programmation sheets, i. e. 25 lines for one sheet. The 
sheet number is punched in columns 1-2, the line number 
in columns 3-4-5. 

We have here : 



Cards from 01 010 to 01 140 
Cards from 01 150 to 10 200 



main program with the 
calling sequence 

Subroutine "INVER" in itself 



2) Assembled deck 

The whole assembled deck is made of cards 
numbered sequentially from 00 000 to 00 168, punched in 
columns 76-80. 



3) Sample deck 

It is here only/^card with in it the following 



matrix 



io000000000000006l20000000000000000130000000000000006l40000000000000006l 



© 



© 
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I - GENERALITIES 

a) Author : R. N. MENEGAUX 

94, rue Reaumur 
Paris (2e) France 

b) Subroutine enabling to calculate the inverse matrix 
of an origin matrix previously in core in a variable 
length mantissa form (up to 45). A simple calling 
sequence is to be included in the main program. A 
second array must be given to store the inverse matrix. 
The origin matrix is destroyed in the operation. 

c) Requires automatic divide and indirect addressing 
and asks for 3147 positions in itself (without the 
SPS II, Version II, subroutines). 

d) Inversion is made by the Jordan's method. At first, 
it places an unity matrix in the second array. 

Then, the loop is the following : 

1. Find the greatest element (pivot) of the considered 
c olumn. 

2. Change the rows of both matrices to place the pivot 
on the main diagonal of the origin matrix. 



3. Divide the whole row by the pivot. 







4. Let appear zeros on the considered column in multi- 
plying and subtracting rows from the pivot row. 

5. Takes the next column and go to (l). 

At the end, the origin matrix is filled up by a unity matrix, 
while the inverse matrix is at its own place. 

e) The execution time is proportional to the square of the 
mantissa length. 

f) Written in SPS II Version II with variable length mantissa. 

g) Uses floating point subroutines. 

h) Dimensions of possible matrices : 
Let L be the length of the mantissa, 

and N be the no. of rows or columns of the origin matrix. 
As the no. of positions of core required is : 

Subroutine itself 3147 
Tables 400 
Floating point subroutines 2330 

5877 

Then the formula is : 

2N 2 1 . 

= L + 2 (memory - main prog. - 5877) 

Where "memory" = 20k, 40k, 60k 

and "main prog. " is the place taken by the main program 
including the calling sequence. 

- Note that the elements of the matrix are in floating point 
form only. 

- The program uses 58 symbols. 

i) Trials with two matrices of 10x10 and of 6x6, with a 
length of 16 positions mantissa (it took 3 mn for the 

10 x 10 matrix, 100% filled up). 



./• 
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H. MANUAL OPERATING 



Does not occur 



HI. CALLING SEQUENCE 



The calling sequence to be included in the main program, 
is the following : 



TFM NREEL, xx, 10 
TFM AELM, xxxxx 
TFM AELN, xxxxx 
TFM LGM, xx, 10 
TFM FINSP + 6, ± + 48 
TFM FERR + 6, ± + 24 
B INVER 
Error Return 
Normal Return 

So, you must fill the following constants : 

- "LGM" by the length of the mantissa (up to 45). 

- "NREEL" by the number of rows or columns of the origin 

matrix. 

- "AELM" by the address (to the extreme right) of the first 

element of the origin matrix. 

- "AELN" like "AELM" for the inverse matrix you wish. 



, NO. OF ROWS OR COLUMNS 
ADDRESS OF ORIGIN MATRIX 
, , ADDRESS OF INVERSE MATRIX 
, LENGTH OF MANTISSA 



Note that those references and what they contain are not 
modified by the execution of the subroutine : they remain available 
at the end of the program. 

Control will be given back to the second instruction following 
the last instruction of the calling sequence (here "B INVER") if 
the inversion has been done normally. 



If not, the following message will be printed : 
"THE MATRIX IS SINGULAR" 



then control will automatically be given back to the first instruction 

../... 



following the "B INVER", where a branch to an error procedure 
may be put. 



No essential zeros have been considered in this subroutine. 

The origin matrix is supposed to be previously stored in 
sequence row by row from the left to the right. The inverse matrix 
will be given in the same form. 

So the sequence must be : 

Element (I, j) with 1 = 1 J = 1 

then 1=1 J = 2 



I = 1 
I = 2 



J = NREEL 
J = 1 



etc. . 



The program is provided in SPS II, Version II, form to 
enable users to compile it with their own program (and their own 
length of mantissa). 

TRIAL ON A SAMPLE PROBLEM 



Let us find the inverse matrix of the origin matrix 
following : j ^ ^ | 

13 4 



Let suppose the calling sequence be 



DEBUT 



NOP 






RNCD 


10000 




TFM 


NREEL, 2, 10 




TFM 


AELM, 10017 




TFM 


AELN, 11017 




TFM 


LGM, 16, 10 




TFM 


FINSP + 6,*+ 


48 


TFM 


FERR + 6,* + 


24 


B 


INVER 




H 






TD 


11 072,400 




WNTY 


11 000 




H 






B 


DEBUT 





( error return) 
( end of program) 
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WE add there the subroutine "INVER" itself in its symbolic form. 

The whole program is compiled in SPS II, Version II, 
with automatic division and variable length of mantissa (here, equal 
to 16) subroutine (Deck numbered 5). 

The data matrix is called when the assembled program 
is loaded. It has been punched on a card under the following form : 

10000000000000000120000000000000000130000000000000000140000000000000000 

This matrix is loaded, under their form, from address 10000. 

Dumping from address 10000, after execution of the subroutine, 
we have the unity matrix, and from address 11000, we have the final 
result, written on annex. 



Annex 



FLOW CHART 



INVERSION OF MATRICES 



INVER 



IE 



16-1-24 



(YES) 



INITIALIZATION 

DEPENDING OF THE LENGTH 

OF MANTISSA 






CREATION OF UNITY MATRIX 
INAELN AREA 






TREATMENT COLUMN BY COLUMN 
OF THE ORIGIN MATRIX (AELM1 






SEARCH OF THE 


MAXIMUM PIVOT 






AM I ON THE MAIN DIAGONAL 1 




(*>) 


GO TO SUBR( 
CHANGMENT 


3UTINE SPCHG 
3F ROWS 



GO TO SUBROUTINE SPDtV 
DIVISION OF THE ROW BY THE PIVOT 



GO TO SUBROUTINE SPZER 
TO MAKE APPEAR ZEROS IN THE 
PIVOT COLUMN (EXCEPT THE PIVOT 
ITSELF = I) 



10 

•ilSTING OF SYMBOLIC SAMPLE PROGRAM Annex II 



01010DEBUT 


NOP 










I NVER 


01020 


RNC010000 








IinVER 


61030 


TFM 


NREEL ,2, 10 


,N0. OF ROWS 


OR COLUMNS 


I NVER 


01040 


TFM 


AELN, 10017 


, , ADDRESS 


OF 


ORIGIN MATRIX 


I NVER 


01C50 


1FM 


AELN, 1 101 7 


, , ADDRESS 


OF 


INVERSE MATRIX 


I NVER 


01060 


TFM 


LGM.16, 10 , 


LENGTH OF 


MANTISSA 


INVER 


6? 070 


TFM 


FINSP+6,«+48 








INVER 


ctcec 


TFM 


FERR+6,*+24 








I NVER 


01090 


8 


INVER 








I NVER 


011 00 


H 










INVER 


onio 


TO 


11072,400 








INVER 


01120 


WNTYtlOOO 








INVER 


01 130 


H 










INVER 


OHM 


B 


DEBUT 








INVER 


01 1501 NVER 


TFM 


1.0 








I NVER 


01 160 


TF 


LGT ,LGM 








INVER 


01170 


CF 


LGT- I 








INVER 


one c 


AM 


LGT,2, 10 








INVER 


01190 


M 


N REEL, LGT 








I NVER 


01200 


SF 


95 








INVER 


01210 


TF 


N.99 








INVER 


01220 


M 


N,. NREEL 








INVER 


01230 


SF 


95 








INVER 


01240 


TF 


NN.99 








INVER 


01250 


TF 


AUN » AUN.R 








INVER 


02 C 10 


TF 


AZER, A Z ERR 








I NVER 


02G20 


SF 


-AUN 








INVER 


02030 


SF 


— AZER 








INVER 


0204 


A 


AUN , LGM 








INVER 



11 



02 C SO 




AU\ t 1 , I 


I N VER 


C2C60 




A 7 F R , 1. Gl" 


INVER 


02 V 


AM 


AZFR, 1 , 10 


I N VFR 


C2CF0 


TTP 


- All N , 1 , 1 U 


I NV ER 


C2G90 


t r n 


-AZER ,-99, 10 


INVER 


02 1 CO 


7 f 


AMEN 1 , AMEN R 


I NVER 


C2 1 1 C 


SF 


— a m r m 


I NVER 


C 2 1 2 


[i 


AMEN, LGM 


I N VE R 


02 1 30 


»M 


AMLN, 1 , 10 


INVER 


02 140 




-AMEM, 0, 10 


I NVER 


C2 ISC 


rr 


AM Eh, aMEBR 


I NVER 


02160 


SF 


-A^ EB 


INVER 


02 1 If 


A 


AMEE, LGM 


I NVER 


02 IPC 


A M 


AM EH, 1,10 


I NVER 


0? IV 


IF V 


— AMTH ,0, 10 


INVER 


022OO 


Tr 


J , -AM E V. 


INVER 


02? 1 C 


Si M 


J , ? , 1 


INVER 


C222C 


I F 


AMEMb , J 


I NVER 


02230 I A 


c 


I , K N 


INVFR 


022*1 


1: E 


I E 


I NVER 


022 5 


TF 


AN, AELN 


I NVER 


030 1 (i 


A 


A N , I 


INVER 


03020 


TFLS 


-AN, — AZER 


I NVER 


03030 


A 


I , LGT 


INVER 


03C4C 


l' 


1 A 


I NVER 


03C50I9 


T F i v 


I ,0 


INVER 


030 60 I.C 


C 


I ,NN 


INVER 


03070 


hNL 


IP 


INVER 


03C8G 


IF 


A N , A E L im 


INVER 


03090 




AN, I 


INVER 


03 lOu 


TFLS 


-AN ,-rtljN 


INVER 



© 









12 


04 1 50 


;•■ C T Y 




1 6 

INVER 


03110 


A 


I ,K 


I NVER 


04 1 6 


nA I Y 


>- 1 s s a 


INVER 


03120 


A 


I ».LGT 


INVER 


04 1 7 


PCTY 




I NVER 


03130 


B 


IC 


I NVER 


04 1 80 F C.RR 


L 


u 


I NVER 


03140ID 


TFM 


1,0 


I NVER 


041V01K 


C 


K, I 


INVER 


03150IE 


C 


I.N 


I NVER 


042CX 


I . E 


IL 


INVER 


03160 


BE 


FINSP 


INVER 


04? R 


B 


SPCHG 


I NVER 


03170IF 


M 


I , NREEL 


INVER 


04220 1L 


r 


SPt-IV 


INVER 


03180 


SF 


95 


I NVER 


04230 


t 


sp/r.R 


INVER 


03190 


TF 


J, 99 


INVER 


04240 


a 


I , LGT 


I NVER 


03200 


TF 


JJ,I 


INVER 


04250 


b 


IE 


INVER 


03210 


TFLS 


— AMEM,— AZER 


INVER 


05010FINSP 


I* 





INVER 


03220IG 


C 


JJ,N 


INVER 


05020SPCHG 


M 


K, NREEL 


INVER 


03230 


RE 


IJ 


INVER 


05C3C 


SF 


95 


INVER 


032U0 


TF 


AM, AELM 


INVER 


05040 


IF 


K,99 


INVER 


03250 


A 


AM, I 


I NVER 


05050 


M 


I ,l\REFL 


INVER 


01*010 


A 


AM, J 


INVER 


05C6C 


SF 


V5 


INVER 


OH 020 


TFLS-AMEB,— AM 


INVER 


05070 


TF 


J,9V 


INVER 


04030 


CF 


-ACEBB 


I NVER 


05080 


TFM 


JJ,0 


INVER 


0H040 


TFLS98 »-AHEB 


INVER 


05090SGA 


C 


JJ,N 


INVER 


0U050 


FS 


— AMEB,— APEM 


INVER 


05 ICC 


BE 


SGH 


INVER 


04060 


BNF 


i 

1H,— AMEBB 


INVER 


05 1 10 


TF 


AM, AELM 


INVER 


0HC7C 


B 


IM 


I NVER 


05 120 


A 


AM, K 


INVER 


OH080IH 


TFLS— AMEM»98 


INVER 


0513C 


A 


AM, JJ 


INVER 


OHO 90 


TF 


K, JJ 


INVER 


0514C 


TFLS-AMEM ,-AM 


INVER 


041C0IM 


A 


J,N 


INVER 


05 150 


TF 


AN, AELM 


INVER 


041 10 


A 


JJ.LGT 


INVER 


05160 


A 


AN , J 


INVER 


OH 1 20 


e 


IG 


INVER 


05170 


A 


AN, JJ 


INVER 


OH 130 1 J 


CM 


-AMEM.-99, 10 


INVER 


05 180 


TFLb-AM,-A.x 


INVER 


OH 140 


BNE 


IK 


I NVER 


05190 


TFLS-Af*,-AMEM 


INVER 










05? CO 


A 


J J, LGT 


INVER 



05210 


B 


SGA 


05220SG8 


TFM 


JJ,0 


05230SGC 


C 


JJ,N 


Q52»»0 


BE 


SGD 


05250 


TF 


AM t AELN 


06010 


A 


AM,K 


06020 


A 


AM, JJ 


06030 


TF LS 


-AMEM.,- 


06000 


TF 


AN, AELN 


06050 


A 


AN, J 


06C60 


A 


AN, J J 


06070 


TFLS 


—AM ,— AN 


06080 


TFLS 


-AN, -AM 


06090 


A 


J J , LGT 


06100 


B 


SGC 


06110SGO 


e 


IL 


06120SPDI V 


M 


I »NREEL 


06130 


SF 


95 


061U0 


TF 


K,99 


06150 


TF 


AM, AELM 


0616C 


A 


AM , K 


06170 


A 


AM, I 


06180 


TFLS 


-AMEM,- 


06190 


TF 


JJ, I 


06200SVA 


C 


JJ, N 


06210 


BF 


SVB 


06220 


TF 


AM, AELM 


06230 


A 


AM, K 


C62U0 


A 


AM, JJ 



© 



14 



15 



I NVER 
INVER 
INVER 
I NVER 
INVER 
INVER 
INVER 
I NVER 
INVER 
INVER 
I NVER 
INVER 
INVER 
INVER 
I NVER 
INVCR 
INVCR 
I NVER 
INVER 
INVER 
INVER 
INVER 
INVER 
INVER 
I NVER 
I V E R 
INVER 
INVER 
I NVER 



06250 
07C10 
07C2C 
07031- 
07()lt0 
07CS0 
07C60 
07070SVJ 
070i'OSVC 
07C90 
07 1 CO 
07110 
07120 
07130 
071U0 
07150 
07160 
07170 
071 HO 
07190 
07?CrsvD H 
07210SPZER M 
07220 sr 
07230 
072M- 
07250SP.A 

oeoio 

08020 
08030 
CPOUU 
0P05I; 



CM 

L.'.F 
A 

r 

Hj 

A 
P 

TEM 

C 

HE 
IF 
A 
A 

CM 

tne 

A 
ti 

FD 
*i 
I- 



ir 
1 r m 

c 

HE 
C 

i<i\L 

1 r 

A 



-ac ,- ( >9, 10 

• ♦36 

jj.lgi 

SVA 

— Af',-AMEM 

JJ, LGT 

SVA 

JJ,n 

J J,N 

SVI 

AN, AELN 
«N,K 
AN, JJ 

-AN, -99, 10 

«+36 

J J, LGT 

SVC 

-AN ,-AMEM 
JJ,LGT 
SVC 
IL+12 
I ,NRCEL 
9 b 

K , 9? 
J, I 
J,K 

srt 

J, NN 

SRF 

AM , ALL!" 
HM, I 



INVER 
INVER 
I NVER 
INVER 
INVER 
INVER 
INVER 
INVER 
INVER 
INVER 
INVER 
INVER 
I NVER 
INVER 
INVER 
INVER 
INVER 
INVER 
INVCR 
INVER 
INVER 
INVER 
INVER 
I NVER 
INVER 
INVCR 
INVER 
I NVER 
INVER 
I NVER 
I NVER 




n q n a n 




AM , 


J 


no[i7n 

UoU ( u 


T F L S 


— AM 


EM , —AM 


U C Vj o U 


T F 


JJ, 


I 


vjo\.yu jko 


Q 


JJ, 


N 


08 1 00 


BE 


SRC 




08 1 1 


T F 


AM, 


AELM 


08 120 




AM, 


JJ 


08 1 30 




AM, 


K 


08 1 U0 


T FL S 


-AMEB ,- AN 


08 150 


F M 


-AMEB.-AMEM 


C8 1 60 


T F 


AN, 


AELM 


08 170 




AN, 


JJ 


08 180 




AN, 


J 


08 1 90 


F S 


-AN 


,-AMEB 


08200 




JJ, 


LG7 


08210 




SRB 






T F M 


JJ, 





noo in Gorv 
\JO£ JU 3 nu 


£ 


JJ, 


N 


8 2 U 


P E 


SRE 




08250 


T F 


AM, 


AELN 


090 1 C 


A 


AM, 


JJ 


09020 


^ 


AM, 


K 


09030 


TFLS 


-AMEB ,— AM 


090U0 


FM 


-AMEB,-AMEM 


09C50 


TF 


AN, 


AELN 


09060 


A 


AN, 


JJ 


09070 


A 


AN, 


J 


09080 


FS 


-AN 


,-AMEB 


090V0 


A 


JJ , 


LGT 



09)00 
091 1 (.: S R E 
C9 1 ?L 
09 1 30 bPF 
091l"0LGM 
09 150LGT 
09 160AELM 
09 1 70 AN 

09 1P0ACLN 
09 19 PAS 
09200 \ 
09? lONM 
092201 
09230 J 
09?i4t)JJ 
092 50K 
ICC IPZER 
10C20 

H)030A/.ERR 

lOPitCAZER 

10050UN 

10060 

10C70ALNR 

1CCB0AUN 

10()9()iVEM 

10100 

101 10AMEMP 

10 120AMCN 
1 1 3GNER 

1 1 U 

1 1 SO4MEBP 



A J, N 

I' SRA 
p IH24 

rc 2,00 

nc 3,rro 

i,c 5,00000 

i.e. b, 00000 

PC 5 ,00000 

rx 5,crpoo 

EC b, 00000 
PC 5.CC000 
PC 5,00000 
5 ,(.0000 
LC 5,00000 
i:C 5,00000 
PC 1,0 
IS 4 5 
P.SA ZER 
PC 5,00000 
PC 1,1 
CS 4 5 
PSA UM 
PC 5,00000 
PC 1,0 
US »t5 
PSA N'Cf 
PC r> ,00000 
PC 1,0 
LS U5 
!' >n N E t 



IN VCR 
INVCR 
I NVER 
INVER 
I NVER 
I NVER 
INVER 
INVER 
INVER 
INVER 
INVER 
INVER 
I NVER 
INVER 
INVER 
INVER 
INVER 
INVER 
INVER 
I NVER 
I NVER 
INVER 
INVER 
I NVER 
INVER 
INVER 
I iWCR 
I. NVER 
INVER 
INVER 
I i\VER 



10160AMEO DC 5,00000 
10170AMEBE DC 5.00000 
lOieONREEL DC 2,00 

10190MESSA CAC 23, THE MATRIX IS SINGULAR* 
10200 DENDDEBUT 



J 8 LISTING OF ASSEMBLED SAMPLE PROGRAM 



Annex III 
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I'NiVIR 
I NVFR 
I NVER 
INVER 
IN VCR 



3600O720050 0.-56O02O 100:>0044000 1 2002 7626 0C059C0? 74 25000 1 1COOC0260009000269 -0000 

260C095002643 I O0000C0200260O 1 14002 7425CC00O00G 1 1 49C00 1 2GC0C0 -0001 

4 100C0000000 361COC000500 160 36 57CCC-216O3 38IJ0CI7160339U1C1 7*0- 1-0402-0462 -0002 

1 60337 3000 J6 160 17 34-0 522 1 60 1 6 38-0 a 1 0'* 900 5 7COO000480OOC 00O0CO *0- 1-0462-0522 -0003 

25 1 10 72004 003t< 1 I OC 0001 004aC0 000CCoC04 9004 C2CCCC0 16034 1 1-0000*0-1-0522-0582 -0004 

26C33760337333O33 750COOO 1 1 3 3 7 600C-2230 i 65 7033 7632C009 500CC0*0- 1-0582-0642 -0C05 

2603401000992 30340 10 365 732 CCC95000002 60 34060009926035 380 3533 *0- 1-0642-0702 -0006 

260 54820 34 7 7 32 35 3C0O00032 034 8K000002 1 3 538032731 103 5 3 6000-1*0-1-0 702-0762 -0007 

2 1 034 8203 3 7 i I I0j4P?0O0-1 160 35 2C000-1 I 60 348K000RR2603 594C 3569*0- 1-G 762-0822 -0008 

32 C359M0000O2 1035^40 3373 1 103 5940 0C- 1 1 603 59M000- 0260365003645*0- 1-0822-0882 -0009 

32C 365-00000? 10 36 500 33 73 1 1036 50000- I 1 60 365-000-0260 34160 3650*0- 1-0882-0942 -0010 

12 034 16000-2260365 5034 1624034 1 1 34064 60 1 C6 80 1 200 260 3 3960339 1 *0- 1-0942- 1002 -001 1 

2105396034 I 1 1 603795- 1 037 490 376400CCC* - 0- 1- 1 002- 1 038 - CO 1 2 

-339C-348K* 1-1-1033-1043 -0013 

2 1034 1 103 3 764 90096600000 16034 1 1-000024 34 1 1 34 064 60 1 1 94 C 1 ZC0*0- 1-1044- 1 1 04 -0014 

2 6033 9603 39 12 10 339 60 34 1 1 1 6 03 7 9 5- 1 1 5 1 490 3 76400C00* 0-1-1 104- 1 152 -00 15 

-3390-353C* 1-1-114 7-1157 -0016 

210 34 1 10 34 12 1034 1 1 03 3 76490 1 08 00000O 1 60 34 1 1- 0C0024034 1 1C34C1 +0-1-1 158-12 18 -00 1 7 

460 1 72 80 12002 "TO 34 1 1 365 7 32C Co 9 5000 0026O34 1 6 00099260342 1 C 34 1 1 *0- 1- 1 2 1 8- 1 278 -0018 

1603795-1301490576400000* 0-1-1278-1302 -00 19 

-359N-348K* 1-1-1297-1307 -0020 

240 34210340 14 6015720 1200260 3 3860 3 38 12 103 3860 34 1 12103 3860 34 16*0-1-1308- 1 368 -0021 

1603/95-139 1490 3 76400000* 0-1-1368-1392 -0022 

-.365 — 338C* 1-1- 1387-1.397 -0023 

330 36 SNOG 0001 6 03 795-1 43 34903 76 4 OCOCO* 0- 1- 1 398- 14 34 -0024 
-0098-365-4 1-1-1429-1439-0025 

16C3795-146349037040C000* 0-1-1440-1464 -0026 

-365 — 359N* 1-1-1459-1469 -0027 



v. 



© 



44014940365M4901 53600000 16 0379 5- 1 5 1 74903 7640 C 000* 0- 1- 14 70- 15 18 -002 8 

-359^-0098* 1-1-1513-1523 -0029 

26034260342 12 1034 1603401 2 10342 103376490 1 3080CCCO )4C359MC00RR*C- 1- 1524- 1534 -0030 
470 1 6440 1 2 00 340000000 102 39036 5900 100 340000000 102490000CCOC CO #0-1- 1 584- 1644 -00 31 
2403426034 1 1460 16800 1 200490 1 740000004 90? 26800 0004902 73C0OG0O*O- 1- 1 644- 1704 -0032 
21034 1 103376490 12 060000049000 00000002 30342 603657 32CC09500CC0*0- 1-1704- 1 764 -0033 
2603426000992 30341 10 3657320009500000260 341 600C99 160342 1-0000*0-1-1764-1824 -0034 
24034210340146020340120026033860338 1210338603426210338603421*0-1-1824-1884 -0035 
1603795-1907490376400000* 0-1-1884-1908 -0036 

-359M-3380* 1-1-1903-1913 -0037 

260339603381210339603416210339603421 1603795- 197 3 490376400CC0*0- 1- I 9 14- 1 974 -0038 
-3360-3390* 1-1-1969-1979 -0039 

1603795-2003490376400000* 0-1-1980-2004 -0C40 

-3390-359N* 1-1-1999-2009 -0041 

210 342103376490182400000 160342 1-0000240 342 1 34C 1 46022560 1 2C0*0- 1-2 1 0-2070 -0042 
26033860339 12103386034262 102 38 60342 1 1 60 379 5-2 1 294903 764C0C00*0- 1-2070-2 1 30 -0043 
-359^-3380* 1-1-2125-2135 -0044 

2603396033912 103396034162 10339603421 1 603795- 2 19 54903 764CC0C0+0- 1-2 1 36-2 1 96 -0045 
-3380-3390* 1-1-2191-2201 -0046 

1603795-2225490376400000* 0-1-220 2-2226-0047 

-339C-359M* 1-1-2221-2231 -0048 

21034210337649020460000049016 8000000230341 1 3657 2200095COCCO*0- 1-2232-2292 -0049 
260342600099260338603381210338603426210338603411 1603795-2363*0-1-2292-2352 -005 
490376400000* C- 1-2352-2364 -0051 

-359M-3380* 1-1-2359-2369 -0052 

260342 1034 1 1 240 342 10340 1 460254 40 1 2002603 3860 338 1 2 1 03 36603426*0- 1-2 3 70- 24 30 -0053 
210338603421 1 403380000RR47024900 1 2002 1 0342 1 337649C2382C00C0+0- 1-2430-2490 -0054 
1603795-2513490374400000* 0-1-2490-2514 -0055 

-3380-359** 1-1-2509-2519 -0056 

210342 1033 764902 3820 000016034 2 1-0000240342 1 340 1 46C2 7 1 80 1 200*0- 1-2 520-2580 -00 5 7 
26033960339 12 103396034262103 3 960 34 2 1 1 403 390000RR47C 2664C 1 2C0 + 0- 1-25 80-2640 -005 8 
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2 10 342 10 33764 v 02 5 5600000 1603 79 5-26-1? 1*903744 0C COO* 0- 


-2640- 


2688 


-0059 


-339U-359I'* 1- 


-2683- 


2693 


-0060 


210342 103 376U 902 55600000490 1692000002 3034 1 1 36 5 7 32 C0095COC CO *0- 


1-2694- 


2754 


-0061 


26 C 34 2 600 099 1 6 34 16-000024 034 160342646033360 1 2002 4034 16034 C6 *0- 


1-2754- 


2814 


-0062 


460 3 36001 3C 0260 3 3860 338 12 10 33 360 34 1 12 103 3860 3416160 3 795-2885*0- 


1-2814- 


2B74 


-0063 


4903 7&4COC00* 0- 


1-2874- 


2886 


-0064 


-359I»-338C* 1- 


1-2881- 


2891 


-0065 


26t)3421u341 124034 2 10 340 1460 3 1 140 1200260 3 3860 3 38 12103 3860 3421 *0- 


1-289?- 


295? 


-0066 


21033 860 34 21 160 3 79 5-2 987490 3 76 400000* 0- 


1-2952- 


2988 


-0067 


-365 — 338C* 1- 


1-2983- 


2993 


-0068 


16C3795-301 7490372400000* 0- 


1-2994- 


3018 


-0069 


-365 — 359N* 1- 


1-3013- 


3023 


-0070 


26033960338 1210 339 6034? 121033960 34 16 1603795- 3083490370400000*0- 


1-3024- 


3084 


-0071 


-339G-365-* 1- 


-3079- 


3089 


-0072 


2 1034210 33 764 9029 0400000 160 342 1-0000240342 10 340 1 4603336C 1 200*0- 


-3090- 


3150 


-0073 


26033 8603 39 12103 3c6034? 12 103 3360 34 261 603 795- 3209490 3 764 CC CCO *0- 


1-3150- 


3210 


-0074 


-365 — 338C* 1- 


1-3205- 


3215 


-00?5 


16C3?95-323?490372400000* 0- 


1-3216- 


3240 


-0076 


-365 — 359M4 1- 


1-3235- 


3245 


-0077 


26033 9603 39 1210339 60342 12 103 3960 34 16 160 3 79 5-330 54903 70400000*0- 


1-3246- 


3306 


-0078 


-339C-365-* 1- 


1-3301- 


331 1 


-0079 


210342103 3764 90312600000 21034 160340 14 ?02 77 80CCC 049 01 704C 0000*0- 


1-3312- 


3372 


-0080 


-O-CO-000 0-000 0-0 000-00 00-000 0-000 0-00 00-00 00-0 000-000 C-* 1- 


1-3372- 


3428 


-0081 


-3427* 1- 


1-3473- 


3478 


-0082 


-OOOOJ* i- 


1-3478- 


3484 


-0083 


-3483* 1- 


1-3529- 


35 34 


-0084 


-0000-* 1- 


1-3534- 


3540 


-0085 


-3539* 1- 


1-3585- 


3590 


-0086 


-0000-* l- 


-3590- 


3596 


-0087 



-3595* 1-1- 
-0000-0000-003484500544 163594967004962C06249554 7645 34 1590* 1- 1- 
260305 1 00000440384 00385 1 330385 1 0CCC0260 3 85 I0 385J490379600CC0*0- 1- 
260444 10000026038870 3851 12038 87000-226044390CCOO 1 504 143CO0C2*O- 1- 
260 392303 79 52604 19400000 110379 5000-326039590379 52604 1500000*0-1- 
4»t0»»004040 1533040 150000026040 1 504C IU490396000CCC* 0-1- 
260458600000260405104015120405 1000-22604 584C000026042 ieC37<;S*0- 1- 
1|1»0U 1 080U T94330M94000002604 19-4O419KU904C64CC00O* 0-1- 
260420604194 I 2042 06000-2 I 1042 18000-0 12041 4 3000- 14 7C4 1 8CQ 1 200*0- 1- 
1504 14300002490000000000* 0-1- 
26000000444 1260000004439490000000-00* 0-1- 
* 1-1- 
3804 2 1400100430426 00040 148-458404 585 160444 1 00CR9260443904 7S4+C- 1- 
490435200000* 0-1- 
380421400 10 044043280040 148 J0000 10000 1604 U 4 1000RR26044 3 904839*0-1- 
490C0OOGOOOO* 0-1- 
38C42 1400100480-1,-2-0020* 0-1- 



4 90 00 C COO 000* 

* 

* 

-coooooooooooooooooooooooooooooooooooooocooooooo* 

JO* 

J5 7079632 6794 8966 1923132169163975144 2098 5846996* 
M3429448 190325 1827651 1289 189 1660508229439 7CC580* 
K3025 850929940456840 1799 1 4 54684 36420 76 1 10148862* 
R9999 9999999999999 999 9999999999 9 9 99 9999999999* 
-00000000 000000000000000000000 000000000000000 CGO* 
-COOOOOOOOOOOOOOOOOOOOOOCOCCOOOOOOOOOOO 0000000 000* 

037041604186-4920* 



-1- 



364 1- 
3646- 
3784- 
384 0- 
3900- 
3960- 
4004- 
4064- 
4108- 
4168- 
4 188- 
4223- 
4224- 
4284- 
4292- 
4352- 
4360- 
4383- 
4384- 
4442- 
4587- 
4589- 
4588- 
4637- 
4684- 
4 731- 
4779- 
4872- 
4824- 



OJ 1-3704- 



3646 -0080 
3704 -0039 
3P44 -0090 
3900 -0091 
3960 -0092 
4008 -0093 
4064 -0094 
4 112 -0095 
4168 -0096 
4192 -0097 
4224 -0098 
4224 -0099 
4284 -01 CO 
4296 -0101 
4352 -0102 
4364 -CI03 
4384 -0104 
4384 -0105 
4396 -01 06 
4443 -0107 
4588 -0108 
4637 -0109 
4590 -01 10 
4684 -0111 
4731 -0112 
4779 -0113 
4824 -0 114 
4 920 -0115 
487? -0116 
00 117 
3 716 P 1 1 8 
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00 1 1 9 


03716' -9077847* OJ 1 


-3716- 


3724 


RO 1 20 








'J t /. 1 


03724 16(14186-5640* OJ 1 


— 3 724— 


3736 


RO 1 22 








00 123 


03 736490 3784 3 * OJ 1 


— 373 6— 


3744 


RO 1 24 








00125 


3 744 1 604 1 fc 6- 5836 * OJl 


—3744— 


3 if 56 


R01 26 








00127 


37 5 6 Ij VO 3 7t;4 3* OJ l 


— 375 6— 


3 764 


R01 28 


1 6C5 1 8-502 04 9 04 95200 000* 0- 1 


— 4920— 


4944 


— 1 29 


160 50 1 8— 5 064 1604 3 58—54 1 6 46 04y ( oO 1 1 ^ 04 4 1UUUU- I D04 00 c UUU— ?U- I 


— 4 94 0— 


5000 


— 01 30 


1604222000— 04 9000CCC 0000* 0—1 


— 5 000— 


5024 


— 1 3 1 


4405 52045 !s4-$3045e4000 004 9 05064CCCC0* 0-1 


—5020— 


* UT) 


— 1 32 


32 045840 000 04 30 50 960 4424510442404D694 90544 OOOGCO* 0-1 


— 50 52— 


5 1 00 




4 3C5 1 1 60456949054 4 000000 * 0-1 


— 5096— 


5 I 20 


—0 134 


15 C 53090 000 1 160531 9-4584240 4 4 4 10458 64 6 5 2 1201 1C046C5306012CC*0- 


—511 6— 


-I/O 


— 1 35 


3 1 C 44 7204 4 2 4 3 1 04 4 240 4 569 * 0—1 


—51 76— 


5200 


— 1 36 


3104 5 6904 47222045860 444 1 46054400 14 00 14 04 586000 JN470544C0 1 300*0— 1 


— 52 00— 


5 26 


— 01 37 


210 5 31904E 8 6 44052960 4584 15053 09000 0233 04 5690000021 044 39C0 000*0— 


— 5260— 




—0 1 3 8 


16 C 543900— 122 5 r, 537 r, 044:59470546P014C0 26044390443833C4425000 CO *0— 


— 5320 — 


5 3 80 


— 1 39 


15 0442400 0(1 J 1 1 04 44 1 000- 1 46056 200 1 400440 544005 379 32044 39000 CC*0- 1 


-5380- 


5440 


-0140 


1 104 4 3900 0-04904 1 8 800000* 0- 1 


-5440- 


5464 


-0141 


430 54 5204 4244 60432 80 12 0033044 39000CC* 0- 


-5460- 


5496 


-0142 


32 04 42 500 0002 6 054 9504 44 1 3 1 04424044252 504439- 3 78 3 1 2054 95000- 1 *0- 1 


-5496- 


5556 


-0143 


26 4441054 9 54 3 0558 80 442449 054 96C0U 00* 0-1 


-5556- 


5592 


-0144 


4 70 54 1601 4C0250422 2054394904 29200000* 0-1 


-5588- 


5624 


-0145 


250422205438490422400000* 0-1 


-5620- 


5644 


-0146 


16050 18-56 72 16 05 76900 -124905 86 UUOOOo* 0-1-5640- 


5676 


-0147 
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23044390458425053790009946043 2801 200 1 605439C0-344 30581 600068*0- >- 56? 2- 5 f 52 -0148 
16C601 1-00841204586000-1 47057920 14 CO 1 20444 1 00C- 1 * 0-1-5 7 32-5780 -0149 

1604586000IW430603205 76732Q006900C002 10444104586490600000000*0-1-5780-5840 -0150 
16030 18*5892 160576900 J 11 16060 1 1-0083260009904856490495200000*0- 1-5836-5896 -0151 
280008304439290008 30458446060520 14002505 3790008 34305744C0C67*0- 1-5892- 595? -0152 
460432801 200320006800000 160543900-562204 44 104586260443900082*0- 1-5952-601 2 -0153 
44054040444 I49O558800000* 0-1-6012-6036 -0154 

1606011*0082490597600000* 0-1-6032-6056 -0155 

1504323000071604390-4372490436000000* 0-1-6052-6088 -0156 

0015T 

037641604186-6084* 0J1-3764-3776 R0158 

00159 

0377649038883* 0J1-3776-3784 R0160 

260444104586260443904564490418800000* 0-1-6084-6120 -0161 

00000 1600000005004900000* -8-0096-0115 -0162 

3600 1000050036001 720050036002440050036003 160050036C000000500 -0163 
OOCCOOOOOOOOl 02030400020406080003060902 10040802 16 1005001 51C200602 181 4200* -0164 
704 11282001106 14223009081 72630C0000000O5060 70809001 2 14 16 181 51 8 11 242 720242* -0165 
8223635203530454036324844553249465360484654627544536271801234567891234 56* -0166 
789— 23456789— J3456789— JK456789— JKL56789— JKLM6 789— JKLMN789— JKLMN089-JKLMN* -0167 
H8C00000000049-04020P9-JKLMNOPQ* L 100388000 1 9M900000000COM90003600000 -0168 







LIST OF SYMBOLS OF ASSEMBLED SAMPLE PROGRAM Annex IV 



M',02 




00570 


ItiVcF: 


OC . oo 


011^4 


ID 


01206 


IE 


01230 


01516 


IM 


01572 


IJ 


01632 


01728 


FINSP 


0t740 


SPCHG 


0182'r 


12256 


SGD 


02268 


SPDIV 


02382 


02718 


SVD 


02730 


SPZER 


0277B 


03126 


SRD 


03336 


SRE 


03360 


03381 


A£LM 


03386 


AM 


033 >1 


03406, 


NN 


03^11 


1 


03416 


03427 


ZER 


03^77 


AZERR 


03482 


03538 


A UN 


03539 


MEM 


035oS 


03645 


AMLBR 


03650 


AMEB 


03655 





■0 1 o- 


Its 


01 080 


IC 


IF 


0130: 


IG 


0149^ 


IH 


FERR 


01644 


IK 


01680 


IL 


SGA 


G203'< 


SGB ! 


02046 


SGC 


SVA 


02544 


SVB 


02556 


SVC 


SRA 


02^,04 


SRB 


03114 


SRC 


SRF 


03373 


LGM 


03376 


LGT 


AELN 


03356 


AN 1 


03401 


N 


J 


03421 


JJ 


03426 


K 


AZER 


03483 


UN 


03533 


AUNR 


AMEMR 


03594 


AMEM 


03595 


MEB 


AMEBB 


03657 


NREEL 


03659 


MESSA 



